home *** CD-ROM | disk | FTP | other *** search
/ PCMania 32 / PCMania CD32_2.iso / bioforge / script / crytotnk.scp < prev    next >
Text File  |  1995-02-23  |  2KB  |  246 lines
  1.  
  2.  
  3. { TRIG_LDR_USE
  4.  
  5.  
  6.  
  7. I ^à¡ = 0 THEN é 
  8.  
  9. I ^à« = 1 THEN é 
  10.  
  11. @Ç¢ PLAYER
  12. ^འ= 1
  13.  
  14. A OFF
  15. è OFF
  16. Z CURFIG OFF
  17. G CRYO_LDR WALK
  18. :DIST_CHK
  19. â 
  20. I @Çô STAND THEN J #Çé 
  21. I @Ç╗ CURFIG CRYO_LDR >= 10 THEN J #Çü 
  22.  
  23. :DIST_CHK_END
  24. G -45 -290 -21
  25.  
  26.  
  27. £ 102 GRADUAL
  28.  
  29. M ENTER_IRIS1
  30. M ENTER_IRIS2
  31. @Ç¥ DOWNLADDER
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101. }
  102. [ DOWNLADDER
  103. M DOWN_LADDER CONTINUE
  104. :DOWN
  105. 00:02 ò 
  106. I @Çâ CURFIG > -55 THEN J #Çä 
  107.  
  108. o 
  109.  
  110.  
  111. I ^å╢ == 0 && ^îû == 1 THEN
  112. @Çì FIDOEATSLEX
  113. E 
  114. @Çì TO_TANKS
  115. ]
  116. [ FIDOEATSLEX
  117.  
  118. @Çå `Çà 150 
  119. 05:00 @Çå `äâ 150 
  120.  
  121. @Ç¥ UPLADDER
  122.  
  123. M PULLED_DOWN
  124.  
  125. @Çì DAMAGE_LEX_IMPACT 666
  126. G 6666 6666 6666
  127. ]
  128. [ UPLADDER
  129. M CLIMB_UP CONTINUE
  130. :HIGHER
  131. 00:02
  132. ò 
  133. I @Çâ CURFIG < -40 THEN J #Çç 
  134.  
  135. o 
  136. ]
  137. { TO_TANKS
  138.  
  139.  
  140.  
  141. Z CURFIG OFF
  142.  
  143. M DOWN_LADDER CONTINUE
  144.  
  145.  
  146. O $Çä 
  147. S TANKS ENTR_TNK
  148.  
  149.  
  150. £ -165
  151. M DOWN_LADDER CONTINUE
  152.  
  153.  
  154. Z CURFIG ON
  155.  
  156. :LADDER
  157. â 
  158. I @Çá CURFIG TO_CRYO > 105 THEN J #Çë 
  159. ^འ= 0
  160. A ON
  161. M STAND
  162. }
  163. { TO_CRYO_USE
  164. I @Ç¢ PLAYER THEN
  165. {
  166. A OFF
  167.  
  168.  
  169. è OFF
  170.  
  171. G 113 -114 -87 WALK
  172. G 113 -114 -87
  173. £ -165 GRADUAL
  174. £ -165
  175.  
  176. M ON_LADDER
  177. M CLIMB_UP CONTINUE
  178. ^འ= 1
  179. :LADDER
  180. â 
  181. I @Çá CURFIG ENTR_TNK > 100 THEN J #Çï 
  182. o 
  183.  
  184.  
  185. S CHAOS BTM_LDR
  186.  
  187. £ 87
  188.  
  189. M CLIMB_UP CONTINUE
  190. :BOTTOM_OF_CRYO_LADDER
  191. â 
  192. I @Çâ CURFIG < -34 THEN J #Çî 
  193. o 
  194.  
  195. M MANTLE_6
  196. â 
  197. ^འ= 0
  198.  
  199. A ON
  200. }
  201. E 
  202. ! "Can't find Lex" 
  203. }
  204.  
  205. [ FALL
  206.  
  207. I ^འ== 1 THEN é 
  208.  
  209. u CURFIG OFF
  210.  
  211. @Ç£ HIDE
  212.  
  213. W 15
  214. S TANKS LEX_FALL
  215. C TNKX
  216. W 15
  217. @Ç£ SHOW 
  218.  
  219.  
  220. M FLOAT CONTINUE
  221. @Ç║ `ëá $üë "Nooo...!/FNoonn... !!/GNeiiin...!" 
  222. Z CURFIG ON
  223. :KEEP_FALLING
  224. 00:02
  225.  
  226. ò 
  227. I @Çâ CURFIG > -110 THEN J #ÇÄ 
  228.  
  229. @Çì TANKDETH 
  230. ]
  231. { TANKTOCELL2
  232. â 
  233. S CHAOS TNKS_ARV
  234. @Ç¥ ENTERCELL2
  235. }
  236. { CELL2TOTANK
  237. è OFF
  238. â 
  239. S TANKS FROMCELL
  240. @Ç¥ ENTERFROMCELL
  241. }
  242.  
  243.  
  244.  
  245. //$ 26 - version number
  246.